home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Jumpstart / Multimedia Microsoft Jumpstart Version 1.1a (Microsoft).BIN / develpmt / source / hotspot / vbx / hottst.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-29  |  6.4 KB  |  221 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FF0000&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4380
  6.    ClientLeft      =   570
  7.    ClientTop       =   1440
  8.    ClientWidth     =   7170
  9.    Height          =   4785
  10.    Left            =   510
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4380
  13.    ScaleWidth      =   7170
  14.    Top             =   1095
  15.    Width           =   7290
  16.    Begin CheckBox ShowHotCheck 
  17.       BackColor       =   &H00FF0000&
  18.       Caption         =   "Visible"
  19.       ForeColor       =   &H00FFFFFF&
  20.       Height          =   375
  21.       Index           =   1
  22.       Left            =   3600
  23.       TabIndex        =   12
  24.       Top             =   3360
  25.       Width           =   1215
  26.    End
  27.    Begin CheckBox ShowHotCheck 
  28.       BackColor       =   &H00FF0000&
  29.       Caption         =   "Invisible"
  30.       ForeColor       =   &H00FFFFFF&
  31.       Height          =   375
  32.       Index           =   0
  33.       Left            =   2040
  34.       TabIndex        =   11
  35.       Top             =   3360
  36.       Width           =   1455
  37.    End
  38.    Begin CommandButton Command4 
  39.       Caption         =   "Close"
  40.       Height          =   495
  41.       Left            =   5280
  42.       TabIndex        =   8
  43.       Top             =   3120
  44.       Width           =   1455
  45.    End
  46.    Begin TextBox SeekText 
  47.       Height          =   285
  48.       Left            =   5160
  49.       TabIndex        =   6
  50.       Text            =   "0"
  51.       Top             =   3960
  52.       Width           =   1815
  53.    End
  54.    Begin OptionButton AviOption 
  55.       BackColor       =   &H00FF0000&
  56.       Caption         =   "Animation"
  57.       ForeColor       =   &H00FFFFFF&
  58.       Height          =   255
  59.       Index           =   1
  60.       Left            =   5280
  61.       TabIndex        =   5
  62.       Top             =   480
  63.       Width           =   1455
  64.    End
  65.    Begin OptionButton AviOption 
  66.       BackColor       =   &H00FF0000&
  67.       Caption         =   "Surfer"
  68.       ForeColor       =   &H00FFFFFF&
  69.       Height          =   255
  70.       Index           =   0
  71.       Left            =   5280
  72.       TabIndex        =   4
  73.       Top             =   840
  74.       Width           =   1455
  75.    End
  76.    Begin CommandButton Command3 
  77.       Caption         =   "Reverse"
  78.       Height          =   495
  79.       Left            =   5280
  80.       TabIndex        =   1
  81.       Top             =   2520
  82.       Width           =   1455
  83.    End
  84.    Begin CommandButton Command2 
  85.       Caption         =   "Pause"
  86.       Height          =   495
  87.       Left            =   5280
  88.       TabIndex        =   3
  89.       Top             =   1920
  90.       Width           =   1455
  91.    End
  92.    Begin CommandButton Command1 
  93.       Caption         =   "Play"
  94.       Height          =   495
  95.       Left            =   5280
  96.       TabIndex        =   2
  97.       Top             =   1320
  98.       Width           =   1455
  99.    End
  100.    Begin AVIHOT AVIHOT1 
  101.       AVIFile         =   ""
  102.       Height          =   735
  103.       HOTFile         =   ""
  104.       Left            =   240
  105.       Top             =   600
  106.       Width           =   855
  107.    End
  108.    Begin Frame Frame1 
  109.       BackColor       =   &H00FF0000&
  110.       Caption         =   "Hotspots"
  111.       ForeColor       =   &H00FFFFFF&
  112.       Height          =   735
  113.       Left            =   1680
  114.       TabIndex        =   9
  115.       Top             =   3120
  116.       Width           =   3375
  117.    End
  118.    Begin Frame Frame2 
  119.       BackColor       =   &H00FF0000&
  120.       Caption         =   "File"
  121.       ForeColor       =   &H00FFFFFF&
  122.       Height          =   975
  123.       Left            =   5040
  124.       TabIndex        =   10
  125.       Top             =   240
  126.       Width           =   1935
  127.    End
  128.    Begin Label Label2 
  129.       BackStyle       =   0  'Transparent
  130.       Caption         =   "Seek"
  131.       ForeColor       =   &H00FFFFFF&
  132.       Height          =   255
  133.       Left            =   5280
  134.       TabIndex        =   7
  135.       Top             =   3720
  136.       Width           =   1455
  137.    End
  138.    Begin Label Label1 
  139.       BackColor       =   &H00FF0000&
  140.       Caption         =   "Label1"
  141.       FontBold        =   -1  'True
  142.       FontItalic      =   0   'False
  143.       FontName        =   "Times New Roman"
  144.       FontSize        =   18
  145.       FontStrikethru  =   0   'False
  146.       FontUnderline   =   0   'False
  147.       ForeColor       =   &H00FFFFFF&
  148.       Height          =   375
  149.       Left            =   240
  150.       TabIndex        =   0
  151.       Top             =   120
  152.       Width           =   4215
  153.    End
  154. Option Explicit
  155. Dim visflag As Integer
  156. Sub AVIHOT1_AVIDone ()
  157.     'DoEvents
  158.     'AviHot1.AVIFile = "c:\hotspot\winser\animat.avi"
  159.     'AviHot1.HOTFile = "c:\hotspot\winser\animat.hot"
  160.     'DoEvents
  161.     'End
  162.     AviOption(0).Value = False
  163.     AviOption(1).Value = False
  164. End Sub
  165. Sub AVIHOT1_HotspotClick (hotspotid As String)
  166.     Label1.Caption = hotspotid
  167. End Sub
  168. Sub AviOption_Click (index As Integer)
  169.     If index = 0 Then
  170.     avihot1.AVIFile = "c:\winvideo\sample.avi"
  171.     avihot1.HOTFile = "c:\winvideo\sample.hot"
  172.     Label1.Caption = "Sample " + Mid$(Str$(avihot1.Length), 2)
  173.     End If
  174.     If index = 1 Then
  175.     avihot1.AVIFile = "c:\hotspot\winser\animat.avi"
  176.     avihot1.HOTFile = "c:\hotspot\winser\animat.hot"
  177.     Label1.Caption = "Animation " + Mid$(Str$(avihot1.Length), 2)
  178.     End If
  179.     SeekText.Text = Mid$(Str$(avihot1.Frame), 2)
  180.     avihot1.ShowHot = visflag
  181. End Sub
  182. Sub Command1_Click ()
  183.     avihot1.Play = 1
  184.     SeekText.Text = Mid$(Str$(avihot1.Frame), 2)
  185. End Sub
  186. Sub Command2_Click ()
  187.     avihot1.Play = 0
  188.     SeekText.Text = Mid$(Str$(avihot1.Frame), 2)
  189. End Sub
  190. Sub Command3_Click ()
  191.     avihot1.Play = 2
  192.     SeekText.Text = Mid$(Str$(avihot1.Frame), 2)
  193. End Sub
  194. Sub Command4_Click ()
  195.     AviOption(0).Value = False
  196.     AviOption(1).Value = False
  197.     avihot1.Play = 3
  198.     SeekText.Text = Mid$(Str$(avihot1.Frame), 2)
  199. End Sub
  200. Sub Form_DblClick ()
  201.     avihot1.Play = 1
  202.     Label1.Caption = "now playing"
  203. End Sub
  204. Sub Form_Load ()
  205.     Label1.Caption = ""
  206.     ShowHotCheck(0).Value = 1: visflag = 0
  207. End Sub
  208. Sub SeekText_KeyPress (KeyAscii As Integer)
  209.     If (KeyAscii = 13) Then
  210.         avihot1.Frame = Val(SeekText.Text)
  211.     End If
  212. End Sub
  213. Sub ShowHotCheck_Click (index As Integer)
  214. Dim x As Integer
  215.     visflag = index
  216.     x = 1 - index
  217.     ShowHotCheck(x).Value = 0
  218.     ShowHotCheck(visflag).Value = 1
  219.     avihot1.ShowHot = visflag
  220. End Sub
  221.